10 ' Сколько чисел больше своих соседей слева?
20 CLS
30 INPUT "Сколько будет чисел?"; N%
40 KOL = 0
50 INPUT "Первое число ="; PRED
60 FOR I = 2 TO N%
70 INPUT "Очередное число ="; X
80 IF X > PRED THEN KOL = KOL + 1
90 PRED = X
100 NEXT I
110 PRINT "Больше своих соседей слева"; KOL; "чисел из"; N% - 1; "возможных."
120 END